home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / comment.g < prev    next >
Text File  |  1997-01-14  |  997b  |  53 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 320 51 "CLI-Master"
  5. wintype 11010000
  6. winout nil:
  7.  
  8.  
  9. xonopen
  10. lvmulti climaster $cmst_srce first
  11. setgad comment.g 1 on
  12. failat 5
  13.  
  14. xonclose
  15. lvdir climaster $cmst_srce none
  16.  
  17. xonfail
  18. ezreq "Error During Processing." Okay ""
  19. lvdir climaster $cmst_srce none
  20. guiclose comment.g
  21.  
  22.  
  23. box 0 0 0 0 in icondrop
  24.  
  25.  
  26. text 100 4 280 12 "Add Filenote(s)" 15 nobox
  27.  
  28. xtextin 20 16 280 13 "" cmst_nwname "" 30
  29. gadid 1
  30.  
  31. xbutton 20 32 80 12 "Okay"
  32. cli 'filenote $cmst_select "$cmst_nwname"'
  33. lvmulti climaster $cmst_srce off
  34. lvmulti climaster $cmst_srce next
  35. if $cmst_select = ""
  36.     setvar cmst_nwname ""
  37.     update comment.g 1 $cmst_nwname
  38.     guiclose comment.g
  39. endif
  40. setvar cmst_nwname ""
  41. update comment.g 1 $cmst_nwname
  42. setgad comment.g 1 on
  43.  
  44. xbutton 220 32 80 12 "Do All"
  45. while $cmst_select != ""
  46.     cli 'filenote $cmst_select "$cmst_nwname"'
  47.     lvmulti climaster $cmst_srce off
  48.     lvmulti climaster $cmst_srce next
  49. endwhile
  50. setvar cmst_nwname ""
  51. update comment.g 1 $cmst_nwname
  52. guiclose comment.g
  53.